home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt40s4.arc / PT4GOSSI.IMP < prev    next >
Text File  |  1987-09-30  |  3KB  |  141 lines
  1. PROCEDURE GiveAwayTime( NSlices : INTEGER );
  2.     BEGIN {shell}
  3.       FarOutgoing(MainModule,11);
  4.     END {shell} ;
  5.  
  6. FUNCTION DateString;
  7.     BEGIN {shell}
  8.       FarOutgoing(MainModule,28);
  9.     END {shell} ;
  10.  
  11. PROCEDURE Async_Send_String( S : AnyStr );
  12.     BEGIN {shell}
  13.       FarOutgoing(MainModule,50);
  14.     END {shell} ;
  15.  
  16. PROCEDURE Window( X1, Y1, X2, Y2 : INTEGER );
  17.     BEGIN {shell}
  18.       FarOutgoing(MainModule,57);
  19.     END {shell} ;
  20.  
  21. FUNCTION Current_Video_Mode: INTEGER;
  22.     BEGIN {shell}
  23.       FarOutgoing(MainModule,59);
  24.     END {shell} ;
  25.  
  26. PROCEDURE Set_Global_Colors( ForeGround, BackGround : INTEGER );
  27.     BEGIN {shell}
  28.       FarOutgoing(MainModule,64);
  29.     END {shell} ;
  30.  
  31. PROCEDURE Reset_Global_Colors;
  32.     BEGIN {shell}
  33.       FarOutgoing(MainModule,65);
  34.     END {shell} ;
  35.  
  36. PROCEDURE WriteSXY;
  37.     BEGIN {shell}
  38.       FarOutgoing(MainModule,69);
  39.     END {shell} ;
  40.  
  41. PROCEDURE Clear_Window;
  42.     BEGIN {shell}
  43.       FarOutgoing(MainModule,73);
  44.     END {shell} ;
  45.  
  46. FUNCTION Edit_String( VAR In_Str      : AnyStr;
  47.                           Buffer_Len  : INTEGER;
  48.                           Start_X     : INTEGER;
  49.                           X           : INTEGER;
  50.                           Y           : INTEGER;
  51.                           MaxWidth    : INTEGER;
  52.                           Force_Case  : BOOLEAN;
  53.                           Status_Line : INTEGER  ) : CHAR;
  54.     BEGIN {shell}
  55.       FarOutgoing(MainModule,160);
  56.     END   {shell};
  57.  
  58. PROCEDURE Set_Screen_Size( Rows: INTEGER; Columns: INTEGER );
  59.     BEGIN {shell}
  60.       FarOutgoing(MainModule,179);
  61.     END   {shell};
  62.  
  63. PROCEDURE CloneCodeSegment;
  64.  
  65.    BEGIN {shell}
  66.       FarOutgoing(MainModule,188);
  67.    END {shell} ;
  68.  
  69. PROCEDURE Check_Wait_String_Time;
  70.  
  71. BEGIN {shell}
  72.    FarOutgoing(PT4TERM,2);
  73. END   {shell} ;
  74.  
  75. PROCEDURE Display_Character( Ch: CHAR );
  76.  
  77. BEGIN {shell}
  78.    FarOutgoing(PT4TERM,3);
  79. END   {shell} ;
  80.  
  81. PROCEDURE Process_Command( VAR Ch       : CHAR;
  82.                                Use_Ch   : BOOLEAN;
  83.                            VAR Command  : PibTerm_Command_Type );
  84.  
  85. BEGIN {shell}
  86.    FarOutgoing(PT4TERM,4);
  87. END   {shell} ;
  88.  
  89. PROCEDURE Execute_Command( VAR Command    : Pibterm_Command_Type;
  90.                            VAR Done       : BOOLEAN;
  91.                                Use_Script : BOOLEAN );
  92.  
  93. BEGIN {shell}
  94.    FarOutgoing(PT4TERM,5);
  95. END   {shell} ;
  96.  
  97. PROCEDURE Get_Script_Command( VAR Command : PibTerm_Command_Type );
  98.  
  99. BEGIN {shell}
  100.    FarOutgoing(PT4TERM,6);
  101. END   {shell} ;
  102.  
  103. PROCEDURE Handle_Scroll_Lock;
  104.  
  105. BEGIN {shell}
  106.    FarOutgoing(PT4TERM,8);
  107. END   {shell} ;
  108.  
  109. PROCEDURE Set_Status_Line_Name( Name : AnyStr );
  110.  
  111. BEGIN {shell}
  112.    FarOutgoing(PT4TERM,9);
  113. END   {shell} ;
  114.  
  115. PROCEDURE Handle_Keyboard_Input( VAR Done                  : BOOLEAN;
  116.                                  VAR Reset_Requested       : BOOLEAN;
  117.                                  VAR ClearScreen_Requested : BOOLEAN );
  118.  
  119. BEGIN {shell}
  120.    FarOutgoing(PT4TERM,10);
  121. END   {shell} ;
  122.  
  123. PROCEDURE Load_Function_Keys( File_Name : AnyStr );
  124.  
  125. BEGIN {shell}
  126.    FarOutgoing(PT4TERM,12);
  127. END   {shell} ;
  128.  
  129. PROCEDURE Init_Text_Terminal;
  130.  
  131. BEGIN {shell}
  132.    FarOutgoing(PT4TERM,16);
  133. END   {shell} ;
  134.  
  135. PROCEDURE Do_Script_Checks( Ch: CHAR );
  136.  
  137. BEGIN {shell}
  138.    FarOutgoing(PT4TERM,18);
  139. END   {shell} ;
  140.  
  141.